-- card: 8373 from stack: in.1
-- bmap block id: 8690
-- flags: 0000
-- background id: 2536
-- name: tght0003
----- HyperTalk script -----
on openCard
  type tab
end openCard

on closecard
  put empty into card field "address"
  put empty into card field "creditcard"
  put empty into card field "expire"
  put 1 into card field "quan"
  click at the loc of button "check"
  set the hilite of button id 10 to false
  set the hilite of button id 11 to false
  click at the loc of card field "calc"
end closeCard


-- part 1 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=127 top=73 right=154 bottom=474
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: address


-- part 2 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=96 top=268 right=287 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: creditcard


-- part 3 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=96 top=290 right=309 bottom=184
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: expire


-- part 4 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=23 top=196 right=212 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Check
----- HyperTalk script -----
on mouseUp
  if the hilite of the target is true then
    play boing
  else
    set the hilite of button "check" to true
    set the hilite of button "visa" to false
    set the hilite of button "mastercard" to false
    set the hilite of button "cod" to false
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=23 top=211 right=227 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Visa
----- HyperTalk script -----
on mouseUp
  if the hilite of the target is true then
    play boing
  else
    set the hilite of button "check" to false
    set the hilite of button "visa" to true
    set the hilite of button "mastercard" to false
    set the hilite of button "cod" to false
  end if
end mouseUp




-- part 6 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=23 top=226 right=242 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MasterCard
----- HyperTalk script -----
on mouseUp
  if the hilite of the target is true then
    play boing
  else
    set the hilite of button "check" to false
    set the hilite of button "visa" to false
    set the hilite of button "mastercard" to true
    set the hilite of button "cod" to false
  end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=23 top=241 right=257 bottom=88
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: COD
----- HyperTalk script -----
on mouseUp
  if the hilite of the target is true then
    play boing
  else
    set the hilite of button "check" to false
    set the hilite of button "visa" to false
    set the hilite of button "mastercard" to false
    set the hilite of button "cod" to true
  end if
end mouseUp



-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=421 top=198 right=260 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: calc
----- HyperTalk script -----
on mouseDown
  set numberformat to "0.00"
  put card field "quan" * 49.95 into line 1 of card field "calc"
  if the hilite of button id 10 is true then
    put .06 * line 1 of card field "calc" into line 2 of card field "calc"
  else
    put empty into line 2 of card field "calc"
  end if
  if the hilite of button id 11 is true then
    put 1.50 into line 4 of card field "calc"
  else
    put empty into line 4 of card field "calc"
  end if
  put line 1 of card field "calc" + line 2 of card field "calc" + line 3 of card field "calc" + line 4 of card field "calc" into line 5 of card field "calc"
  play harpsichord a c
end mouseDown


-- part 9 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=320 top=197 right=211 bottom=354
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: quan
----- HyperTalk script -----
on closefield
  click at the loc of card field "calc"
end closefield


-- part 10 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=257 top=211 right=226 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: California Resident (6% Tax)
----- HyperTalk script -----
on mouseUp
  click at the loc of card field "calc"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=257 top=234 right=249 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 2nd Day Air (1.50 extra)
----- HyperTalk script -----
on mouseUp
  click at the loc of card field "calc"
end mouseUp




-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=469 top=308 right=336 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual dissolve fast
  go card "tght0001"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=428 top=3 right=61 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  play harpsichord a c5 b
  doMenu "print card"
end mouseUp



-- part contents for card part 8
----- text -----
49.95

2.50

52.45

-- part contents for card part 9
----- text -----
1